home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / adatu200.zip / TRITYPE.ANS (.png) < prev    next >
ANSI Art File  |  1991-03-25  |  522b  |  640x256  |  1-bit (2 colors)
Labels: text | screenshot | font
OCR: Our solution to Outside Assignment 2: separate (TRITEST) function TRITYPE (LEN1, LENZ, LEN3 : in INTEGER) return TRIANGLE is ANSWER : TRIANGLE; begin if LEN1 + LENZ <= LEN3 or LEN1 + LEN3 <= LENZ or LENZ + LEN3 <= LEN1 then ANSWER := NOT_A_TRIANGLE; elsif LEN1 = LENZ and LENZ = LEN3 then ANSWER := EQUILATERAL; elsif LEN1 = LENZ or LENZ = LEN3 or LEN1 = LEN3 then ANSWER := ISOSCELES; else ANSWER := SCALENE; end if ; return ANSWER; end TRITYPE;